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Carrying оп from Jan/Feb issue the Hunter Valley VZ Journal 


will be published Bi-Monthly for the forseeable future. This 


Will bring us in line with other VZ Publications and also 5078 15 
поге time to produce а better quality journal. 


BYTE BACK & OTHER VZ PUBLICATIONS = - use 3 
Our list of VZ User Groups and Publications is growing. 


SNOOPY CALENDAR PART 2 by Dave Boyce :- በ Pages 4-5 
This concludes listing of Snoopy Calendar. The lines of 
hashes are simply a guide to help you when you are typing in | 
PRINTER/PLOTER SECTION by Dave Boyce ፥፦ Е . Page Б 
| Dave Shows . you how to convert Snoopy Calendar for 
іы use. : 


DISK DRIVE.HINTS 8 TIPS ፥- m Pages 5 & 10 


КАМ COMMUNICATIONS AREA by David Mitchell (ር) Pages 1-8. 


Dave has put in a lot of time and effort in compiling the 


list and a lot of VZ users will appreciate his sharing the result 


of his labours. Thanks Dave There are a few gaps in the list 


and we would like your help in filling them. 


ROM INVERSE CHARACTER SET by Bob KITCH. (C3 Pages 9-10. 


Bob’s article explains in his usual thorough way how inverse 


Characters аге stored in ROM an why they wont print out on most 
Dot ከ. Printers. ል screen dump is shown at end of listing. 


Тһе МАСІС JZ = UTILITY REVIEW 2- Pages EA 

The next best thing to a disk drive when you don’t have a 
disk drive or how to live without one when you can’t afford one 
let alone two or three. | | | ከበበ | | 


UTIDITY REVIEW by Larry yio “147 xem Page 13 

FILESEARCH is а utility that can be used both by tape or disk 
drive owners. It gives quite a 10% of information on your 
programs. This is Larry's first contribution to our Journal and 
we welcome him aboard. | | 


CONVERTING TAPE HAILING LIST FOR DISK USE :— Page 14 


D.Smith has’ available quite a few Technical Bulletins for the 


YZ: . Bulletin 111 is reproduced by kind permission D. Smith 
Computer User Support. | | | | 


BEGINNER'S SECTION by Leigh Rogers ፡፦ | Pages 15- 16 
| In her easy to follow style Leigh takes you line by line 
explaining as she goes along. | 


ENHANCING VZ BASIC by Larry Taylor (C) ፥፦- |. Pages 17-19 

This issue has our our first assembly listing. The basic 
.Version will appear in next issue and intending assembly learners 
will find it helpfull. | жән 


VIDEO DISPLAY WORKSHEET (MODE 0) ፡- ` | ` Page 20 


BELIEVE IT ОК NOT += | ZEE 

| Two female computers were overheard gossiping. (Via their 
speech  synthesisers ፦ Ed.). One asked the other. "How did your 
honeymoon go" 2 "terrible", replied the other, "He left his 


Joystick at home". 
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Since our comments last month we had a few NIBBLES. Here are 
some of the comments. 


Dave Boyce ፦ It is nice to receive a Mag. (sorry Journal) that is 
pages thick. Dave also suggested that ue do an annual index 


together with notes and errata. Thanks for the suggestion Dave, 


ые had something similiar in mind. 


Scott Le Brun - I’ve been reading the Jan/Feb issue of your 


Journal and IT’S GREAT. Thanks Scott. The RESTORE article, I 
found very useful, ав I sometimes accidentally NEW А рө каш and 
it's not stored on tape. Take а bou Dave Mitchell. 


With this issue ш are introducing а neu service to our 
members on а trial basis. Most programs appearing in this 


Journal can be obtained from Hunter Valley VZ Users' Group simply 
by sending а ТАРЕ or DISK together with return POSTAGE and. 


PACKING included. When sending disks make sure you use stiff 


cardboard as support as the postman likes folding disks in half 


to fit in your letter box. СР” plates are ideal as support. 


OTHER VZ FEEL CATIONS, GARDUS . . 


VZ USER | LE'VZ 200/300 ООР 

МАЕК HARWOOD | Ј.С.Е. D'ALTON 

P.O. BOX 154 | 39 AGNES STreet 

DURAL 2158 | | . TOOWONG 4066 

N.S.W. QUEENSLAND 

$15.00 PER ANUM . $2.00 PER ISSUE (min $4.00) 

| VSOFTWAREZ m | 
Software/Hardware for sale. 

VZ DOWN UNDER J. МІСЕО-МАСІС 

С:- GEORGE SEGGIE | GORDON BROWELL 
P.O. BOX 316 13 BROOKES St. 

ST. KILDA 3182 BIGGENDEN 4621 

VICTORIA QUEENSLAND 


Software/Hardware for sale 


NOTE :- When writing to any above or H.V.VZ. Users' Group for 
information please enclose а 5.56.А.Ё, (Stamped Self Addressed 


Envelope). 


HUNTER VALLEY Зол USERS GEOL . à a 


PETER. ELLIS o 4: 4. е ас PRESIDENT ; . (043) 69 5637 
MARK O'BRIEN . . + . . VICE PRESIDENT . (049) 61 5490 
ROSS WOODS . . . . . . SECRETARY - . . (043) 71 2843 
LEIGH ROGERS . . . . . TREASURER . . . . (049) 57 5738 
JOE LEON = 2 « ሠ « х .«« EDITOR в « (049) 51 756 


MAIL ALL SUBMISSIONS TO :- 
HUNTER VALLEY VZ USERS' GROUP 
С/- Р.О. BOX 161 JESHOND 


` R. S. V. 2299 


No MATERIAL in this Journal тау be reproduced in part or 
Whole without the written permission of the Author and or Hunter 
Valley VZ Users’ Group. 





SMO ys CALENDAR BY ГУ. BOYCE > < 
840 LPRINT | | | 
845 7----5----5--- KER ХОНИНЕН HE EAE HAE EX HEE HE RE KHE HEH ХЭРХ 
850 LPRINTTAB(SO) ነ " | ХХХХ" 
850 LPRINTTABR(30);" Х КК" | 
e70 GEREN TAB CaO) 4" | XK: S X XXXXX" 
ago LPRINTTAB(S3O);" . Хо жжжжж X XX ХХ" 
890 LPRINTTAB(30);" ХХХХХ жжжжжжж XXX XXXX 2: 
892 LPRINT"'"XX" | 
900 LPRINTTAB(30);" XX Х жжжжжж XXXXXXXXX nS 
302 LPRINT" ХХ ХХ" 
920 LPRINTTAB( 30); " XX X ARK X ` | z ТЭ 
922 LPRINT" ከ X" | 
940 LPRINTTAB(30):;" X XX ХХ X L3 
942 LPRINT" ХжжжХ" | 
860 LPRINTTAB(3O);:" X //ХХХХ Хо | e 
962 LPRINT" АЙАХ" | Е | 
980 ІРЕІМТТАРВ (ЗО); "እ “ሥ X | 
982 LPRINT" XX" 
985 3----5----5---Х ХЇЇ ХЭН  ХНБЇ ИЙ Х ЛЭ ХЭ ЭНЭ НХ  ВЕХНЕЕХ 
1000 LPRINTTAB(30);"X ፖ/ X (—OKXXXXXXXXXXXXX" 5 
1002 LPRINT"'"XX^/" | | | mE 
1020: LPRINITAStSQJATUA XXX/ / X ДЭ 
1040 LPRINTTAB(30)3"X X X X x^ 
1050 LPRINTTAB(30);"X X X Хо Х" 
1060 ЬМРКЇМТТАР(30):"Х X X X X 23 
1062 LPRINT" " XX" Л | 
ТЮЛСОЛГЕГМТТ (309153 Х Х እ ፳ | т 
1072 ЛО 2020 
1080 LPRINTIABCSO)IS X XXX X (X Хо 
1082 РАП X X Kh | mE нээ 
IOSO0- ከ ክክ! ቨለ. COIs” К x X ae 
1092 LPRINT"X X  XXXX" | | 
100 LPRINTTABiSOTIS X X XXXXXXXN ` EI 
1102 LPRINT"X ХХ X" | 
1110 LPRINTTABCSO3;" XX XX X кез 
1112 LPRIMT" X ХХ" | 
1120 LPRINTTAB (SO) 3! | KX XXXX ХХХХХХ/ > 1 
1120 PRIN XXXX" 
125 Баана ОНИРРЕХЯ ЭН EEC SEE HE GE HERE HC EEE X HEX 
q390 PRINT ክለ 018" KKK — 06065250 25 с 
1192 LPRINT' - x" | | 
1140 LPRINTTAB(30);" ХХХХХХХХХХХХХХХХ ж Жж Х VE 
1142 TLPPRINTS x 
VISO- LPRINTTAB(SQJ);" | Ж---Ж X X 5% 
1152 LPRINT"X' нэ 
1180:1,РЕТКТТАВ ООО" | | Ж-Ж Ж XXXX X x" 
1170 LPRINTTAB(30) 3" x- x ХХХ x 
1180 LPRINTTAB(3O); " Ж- ЖХ | XXX" |. 
1190 LPRINTTAB(30);" ж- ЖХ X XXX" 
1200 LPRINTTAB(30);"' Ж- ЖХ X E 
LAOS ЕРЕН XX” | | 
1210 LPRINTTAB(30);" X— XXX X d 
1212 LPRINT" x | 
19000 LPRINTTAR(SOJ;" ж ЖХЖ X X ይ 
1222 LPRINT' x^ | | | 
1290 LPRINTTAB СЗО k XK ж X X d 
1232 LPRINT" x 
1234 


en eet eRe ccc ОНИННБОНИННЕЗИНННЕКОНИННЕКХОННИНЕХЕЕХ 


ан 


1252 
1270 
2202 
1280 
1282 
1290 
1201 
12902 
1300 
1302 
1210 
1212 
2219 
1322 
1330 
1332 
1340 
1342 
1350 
1552 
1305 
4350 
1380 
1390 
1500 
1600 


Г» s 


and far between. 


--፪ 8 ЦЭ ፳ UW 


i тыз шы аша қаж авш шә 


8 -፳ሙ-፪፪ FZ ЖАК ыы 


ሙር СОНИ мэс ህከ‏ اسا س تا س ا 
LPRINTTAB(30); ж ж Хжж X ХХУХХ 2:‏ 
LPRINT" x"‏ 

LPRINTTAB(30) ;" ж ж Kak XX | o o 
LPRINT" Х" | 
 LPRINTTAB(30);" | | X жж Xxx X XX ' ба 
ЇРЕТМТ" x | 
LPRINTTAB(30);" | ж жж Xk XXX X E 
LPRINT" X" | 
LPRINTTAB(30);" Ж жж ХХ ХХХ ae 
LPRINT "ХХ" боо, . - - 
LPRINTTABR(3O);" X жж ሂጀ እ Х m 
pon HC XG 


LPRINT" X" | | 
LPRINTTABI(O90)9 $ Ж ж жж X . ° X dE 
LPRINT" X" | | | mE 
ERIN 2 20830102 ашшы шыу ны E OX ዲ PL S 
LPRINT"  XXXXXXXXXX" | 

ПРЕТСТАВА ЗО" Ж ж Жж ARKO АХХХ"; 
LPRINT"XXXXN je | i 

LPRINTTAB(C30) y" шшшшХХЖЖЖЖИХЖ Ж X X "s 
LPERINT” EN ES | 

LPRINTTAB(30) ;" === * X E 
ПРЕС N )XXKXXKX " | | 
UPRINTIABUSODUI "азасы ТЕО ЕНЕ ХХХХХХХХХХХХХХХХ"”: 


De RIN ХХХ 


(ї----Э-э--5--2ХН Х И ЇХЇЦРННБ ХН  ННЕХ шы 


LPRINT 

RETURN 

END 

ERA SNOOPYCI^ 

SAVE" ONOOPYTOL'SCLSIDIR 


£ r= ТЭРС қ 4 ፳፪ PIOS C ድኋጧ Ps Y f ፪፻ FL E T: Bi 
Hints for the VZ abound while ones for tha disk drive are fey 


Here are some you may find usefull. 


How times have you Run а program without SAVING it firs 


and los it all because the VZ or drive hung up. Fear not, 
there I: а simple solution. Just add a couple extra lines 
your program. іле trick 15 t0 SAVE your proesram regularly. 
1500 ERA"FILENAME" 
1000 DAVE" PFILENAMEUICLS:DIR 
The first time you save your program you. would use line 1600 :- 
СОТО 1600 
This will SAVE your program, clear the screen and show you 
the DIRECTORY. Then at regular intervals type in :— | 
GOTO. 1300 | 
Provided you а have disk in the drive line 1500 will ERASE 
your program while line 1600 uill SAVE an updated version of your 
program. | 
Instead of iine 1500 and 1600 any line number of your choice 
can be used. Have a look at lines 1500 and 1600 of Snoopy 


Calendar program in this issue for an example. 


PRINTER PLOTTER SECTIOM - = - - “<€ | 


CHANGING SNOOPY CALENDAR FOR PRINTER/PLOTTER USE by Dave Boyce. 


Nou that You have typed in Part 2 of the Calendar we can 
procede. Load іп the completed program and follow the © 
instructions given below. | 


Delete Lines 162, 348, 558 and 820. | 
Type in -: SAVE"SNOCALPP" and press RETURN. ( DISK SAVE )- 
jus -: CSAVE"SNOOPY/CAL" and press RETURN. ( ТАРЕ SAVE ) 
Add Lines 70, 80, 160, 285, 595 and 1255 as Listed below. 


| Change Lines 90 to 120, 345, 365, 315, 385, 552, 580, 585, 
590, 830 апа 1500 аз Listed below. 


pru. change .the TAB(SO)'s in Lines 850 to 1350 to. TAB(15)' з ' 


. as the example shous below. 


` Type in -: GOTO 1500 and press RETURN. ( DISK SAVE ) 
Type in -: GOTO 1600 and press RETURN. ( TAPE SAVE ) | 


| NOTE :- In case of DISK SAVE use line 1500 and line 1600 for 
TAPE SAVE: whenever insructions call for program SAVE. | 


. FO ' FILE ፦ SNOCALPP 
80 ^ ## SNOOPY CALENDAR ## | 
| 90 ^ FOR THE PRINTER/PLOTTER ONLY ` 
100 ^ ## LINE 160 WILL SET YOUR PRINTER/PLOTTER 
105 ' IN THE CORRECT MODE ` 
110 * ### RUN LINE 595 TO RETURN TO TEXT MODE 
120 ' IF LEAVING PROGRAM PREMATURELY | 
160 LPRINTCHR$(18):LPRINT"SO": LPRINTCHR$(17) 
285 LPRINT ` 
` 845 LPRINT:LPRINT: LPRINT 
365 LPRINTB$ 
375 LPRINT:LPRINT © 
385 LPRINT: LPRINTAS 
| 552 GOSUB830:* SOOPY PRINTOUT нэ Қа 
` 580 CLS: INPUT "ANOTHER YEAR SIFY THEN RUN ELSE 585 
585 END НЭГ M 
590 HHH RETURN TO TEXT HODE н 
595 LPRINTCHR$(18):LPRINT"S1": LPRINTCHR$(17) 


` 830 " SNOOPY PRINTOUT 


. 5 ከ በ KERR AKI RAC A KI KIC 
|. 850 LPRINTTAB(15);" KXXX" 
860 LPRINTTAB(15);" X xx" | 
1255 —— ннн KAMARA 
1400 : | 
1450 


1500 ERA"SNOCALPP":SAVE"SNOCALPP":DIR:' THIS LINE FOR DISK ONLY 
1550 | | 

1560 : | | | | mE | 
i CSAVE'SNOOPY/CAL': "ТАРЕ USERS USE THIS LINE TO SAVE PROGRAM © 





Ram COMMUNICATION ADDRESSES pe 3 


30720- 2 


Ez "w 


7800-2 


` 30738-40 7812-4 


30741 
30742-3 


30744 


30745 


30746 


30747-8 


30749 
30750-1 
| 30752-3 
| 30754 

30755-6 


30757 


30758-9 
30760 


30761 


30762 ` 
30763-4 


30741 - 30748 ` 


7815. 
7816 ` 
7818 . 
7819 
781A 
781В-С 


30749 - 30756. 


781D 


30757 - 30764 


7625 
7826-7 
7828 ` 
7829 
782A 
TB2B-C 


30765 = 31058. 


Т. 
30720 = 20740 | 


RST 


ኘ81ቹ-፻ ` 


4. Be Il X TEEL = d 
TOS = 7814. RST JUMP VECTORS 


RST 8 
RST 10 
RST 18 
RST 20 
RST 28 
30 
38 


JP 
JP. 


1096 NN 

1D78 (DOS 4293) 
JP 10980 ` 

JP 25р9 

SET TO RETURN 

SET TO RETURN 

RST SET TO EI, RETURN 

7815 = 7810. KEYBOARD D. в. C. 


DEVICE 
DRIVER 


ТҮРЕ 
ADDRESS 


INVERSE SCREEN . 
ከ. TYPING ` 


RAN BUFFER ADDRESS 


7815 - 7824 VIDEO D.B.C. 


DEVICE TYPE 


DRIVER ADDRESS © 

CURSOR POSITION 

а | Ac 
CHECKSUM DURING TAPE LOAD 

7825 - 782C PRINTER D.B.C. 


DEVICE TYPE 


DRIVER ADDRESS 
LINES PER PAGE 


LINES PRINTED SO FAR 


26 


КАН BUFFER ADDRESS | 


 ግ82ፐ - 7952. COMMUNICATION REGION 


30765-73 7820-35 USED BY 2 80 Dos 
30774-5 7836-7 


- 80886 


78ል6 ` 


RND NUMBER SEED 30867- 3 7893- -5 


fi 


INVERSE MESSAGE 


DISABLE UP, DOWN ind :LOW RES SPEED UP. 
2: | 


СОРҮ OF О/Р LATCH 
2 


VIDEO CONTROL WORD | 


INTERRUPT 


DIVISION SUPPORT ROUTINE 
USR POINTER | = 
INP (XX) 
OUT (ХХ) | Ж 

LAST KEY PRESSED 

ERROR CODE STORAGE | 

PRINTER CARRIAGE POSITION 

OUTPUT DEVICE CODE - 
SIZE OF VIDEO LINE | 
HIGH OR LOW RES 30879 
BASIC STACK ADDRESS | 
BASIC LINE NUMBER - 


ТӘЖ т 


| 20776 (Төзе 
30777 7839 
30778. 783A 
20779 8635 
20780 783C 
30781 783D 
. 30782-844 783E-7C ? . 
` 30845-7 787р-Е 
30848-61 7880-D 
30862-3  788E-F 
` 30864-6 7890-2 
` 30870-2 7896-8 
30873 7899 
30874 Т789А 
| 30875 788B 
30876 789C 
30877 789D 
30878 789E 
30880-1  78A0-1 
30882-3 7842-3- 
30884-5  78A4-5 


START OF PROGRAM | 
TAB CURSOR POSITION. 


| RAM COMMUNI CAT I ON ADDRES- CORT . i 


30887- -8  78A7-8 KEYBOARD BUFFER ADDRESS 
30889 — ገ8ል9 ግ | ў | 
30890-3 78AA-D RANDOM NUMBER SEED 
30894 78AE VARIABLE FLAG | | 
30895 ТВАЕ NUMBER FLAG ( INTEGER, STRING, SINGLE, DOUBLE) 
30896 78BO EXPRESSION EVALUATION 
30897-8  78B1-2 ТОР OF MEMORY | | 
30899-900 78B3-4 NEXT LOCATION IN LITERAL STRING POOL 
30901-2  78B5-6 START OF LITERAL STRING POOL 
` 30903-45 78В7-Е1 ግ | | нэ 
30946-7 78E2-3 CURRENT LINE NUMBER 
30948-9  78E4-5 AUTO INCREMENT 
30950-1  78E6-7 LAST BYTE EXECUTED IN CURRENT LINE 
30952-3 78E8-9  BACKSPACED STACK ADDRESS ` 
30954-5 78EA-B ERROR LINE NUMBER 
| 30956-7  78EC-D ERROR LINE NUMBER 
30958-9  7TB8EE-F CURSOR POSITION IN LINE WITH ERROR 
. 30960-1 78Е0-1 ADDRESS OF STATEMENT TO RESUME AT 
80962. 78F2 ERROR MESSAGE OVERRIDE 
30963-4  78F3-4 ግ 
30965-6  78F5-6 LINE NUMBER ENDED ON 
30967-8  78F7-8 LAST STATMENT BYTE SCANNED 
30969-70 78F9-A END OF PROGRAM 
` 30971-2 78FB-C START OF DIM VARIABLES TABLE 
30973-4 78FD-E START OF FREE MEMORY | 
`` 30975-6  78FF-900 DATA POINTER (READ STATEMENT ) 
. 30977-1002 7901-1А VARIABLE DECLARATION TABLE 
31003 7918 TRACE FLAG 
31004 7910 HATH ROUTINES 
31005 - 31012 791D - 7924 regester 1 
m | "ES INTEGER SINGLE DOUBLE 
. 81005 791D LSB 
31006 791E LSB 
| 81007 Т9ІЕ | ` LSB 
` 81008 7920 - LSB 
. 81009 7921 LSB LSB LSB 
` 31010 7922 MSB LSB LSB 
.. 81011 7923 Е MSB MSB 
| 81012 7924 | EXP EXP 
. 31013-4 7925-6 MATH ROUTINES | 
31015-22 7927-Е REG 2 SAME AS REG 1 
-31023 ገ82፻ 2? 
31024-49 7930-49 PRINTER BUFFER 
31050-7 794А-51 DOUBLE PRECISSION MATH 


. 31058 - 31141 7852 - 79A5 TRS-80 DOS RESERVED WORDS 
81141 - 31204 79А6 - 79E4 TRS-80 DOS LINKS 

31205-7  79E5-7 USED BY INPUT ` 

31208-72 79E8-7A28 BASIC LINE INPUT BUFFER 


. 31273 - 31388 ТА29 - 7A9C ግ 


THE VERY TOP 


TAPE NAME 


31389 - 31404  7A9D - ТААС 
31405 - 31446 ТААр - 7АРБ 7 
81447 - 31462 7AD7 - 7AE6 ТАРЕ LOAD ROUTINE 
31463-4 ТАЕТ- В ZERO 
31465 | 7AE9 START OF USER MEMORY 
36864 9000 ТОР OF MEMORY У2-200 (ӨК) 
45184 B800 TOP OF MEMORY VZ-300 (16K) 
53348 5000 ТОР OF MEMORY VZ-200 (16K) 
63488. F800 ТОР OF MEMORY VZ-300 (16К-16К) 
65535 + FFFF | | 


ay 


10 


630 


640 


м 5 ኃ ቁ ህ ቀ 4 9 


ROM INVERSE CHARACTER SET ገፎ 120120 


EOE KETCH сє» COPYRIGHT 


EEO ን ት REED OOO EOE 
Жжжж DISPLAY INVERSE CHARACTER Жжжж 


ЖЖЖ. | SET IN ROM 242 XXX 
 ቾጆቹሕ ` ል2 USED BY DOT MATRIX ЖЖЖ 
ЖЖЖ | ` PRINTER ЖЖЖ 
ЖЖЖ В. B. KITCH 27/9/86 KKK 


SOE GE дада ааа 2220 


O ‘WHEN INVERSE CHARACTERS ARE SENT TO ል DOT MATRIX PRINTER 


'THE PRINTER SHIFTS TO GRAPHICS MODE AND REQUIRES A ROUTINE 
'TO SUPPLY THE APPROPRIATE SHAPES TO THE HEAD. (NORMAL | 
'CHARACTERS ARE HELD IN THE PRINTERS ROM) 


"IN THE VZ COMPUTER А TABLE OF SHAPES IS LOCATED AT 
^SBS4H TO 3CD3 IN ROM. THERE ARE 64 CHARACTERS, EACH USING ` 


ን 27 BYTES TO DEFINE THEIR GRAPHIC SHAPE. THE SHAPES MAY BE 
*DECODED AND OUTPUT TO THE SCREEN AS IS DONE IN THIS | 


PROGRAM. NOTE THAT THERE ARE SOME ERRORS IN THE ROM. 


'THE 5 BYTES DEFINE А 5 BY 8 DOT MATRIX WHICH IS THE SHAPE | 


OF THE CHARACTER, WHICH INCIDENTLY ARE NOT ORDERED 1 


'ACCORDING TO THE ASCII CODE. 


THE FIRST BYTE DEFINES THE LEFT HAND EDGE OF THE CHARACTER- 
WHICH IS THE FIRST PRINTED DURING A PASS OF THE PRINTER ` 
> HEAD. IN TANDY PRINTERS THE MSB IS THE LOWERMOST PIN OF THE 
HEAD AND THE LSB IS THE UPPERMOST PIN. THE PINS ON EPSON ` 
"PRINTER HEADS ARE ARRANGED IN THE OPPOSITE SENSE. THIS | 


_* REQUIRES THAT THE BITS IN EACH BYTE BE REVERSED. 


та ааа а” 


DIM ፪፪%(7) :XXVECTOR OF BIT MASK VALUES - POWERS OF 2 
Dor BTA CT) :”жжжУЕСТОК ОЕ DECODED BITS FROM Bon аа 


XXXFILL MASK VECTOR WITH POWERS OF 2 FOR DECODING. 
ээн І%-О 10 7 : MK% (1%)=271% :NEXT 1% 


CXXXINITIALIZE PARAMETERS - MAY BE CHANGED TO VARY SCREEN. 


CC%=4 :'XXKkCHARACTER COLOUR. (1-4) 
BCX-2 :*xkXBACKGROUND COLOUR. (1-4) 

б5%=0О: :” ЖЖЖСОҺОУЕ SET. (0-1) 

CWX-3 - : XXCOLUMN WIDTH BETWEEN CHARACTERS. 

SPX-16 . :'XXXROW SPACING FOR CHARACTERS.  —— | | | 
ОН5ВХ-0  : XxxSTARTING HORIZONTAL POSITION ON HI-RES SCREEN. 


УРХ-3 :'XX*STARTING VERTICAL POSITION ON HI-RES SCREEN. 


HMX-127 ቴን NUN ከህ ከ ጢው. POSITION. (0-127) 


| 650. 
660 


“700 
710 
120 
730 


740 ` 
750 


воо 
810 
820 

B30 


СЭЖЖХВЕТ ОР MAIN LOOP TO ӘТЕР THROUGH КОМ ЕЕОМ 3BSA4H-3CD3. 


ВК%=0 :*ЖЖЖВҮТЕ COUNTER FOR EACH CHARACTER. 
НР%-Н5% ware: 005 KKKSET HORIZONTAL POSITION ТО START. 
MODEt1) :COLOR,CSX 22:%ЖЖЖӘЕТ HI-RES SCREEN AND COLOR SET. 
FOR ADX-1525Z2 TO 15571 :”ЖЖЖЕОМ ADDRESSES FOR SHAPE TABLE. 
DVX-PEEK(ADA) | 5 7ЖЖЖРЕСІМАТ ыы IN КОМ. 


9 


' xk DECODE THE INDIVIDUAL BITS OF DVX AND STORE IN 5፲%(). 
'ЖЖЖТНЕ MASK VALUES. ІМ MK%() ARE "ANDED" WITH THE VALUE. 
'ЖЖЖТНЕ RESULT STORED ІМ ВТ%() IS THE "COLOUR" OF THE BIT. 
FOR IX- О TO 7 | (2G XKKKPROCEED FROM LSB ТО ИЗВ. 
IF DV% AND MK%(1%) THEN BTAUCIZ)-BCX ELSE BTX((IX)-CCZX 
QUEUE 1% | | 
"ЖЖЖСНЕСК THAT THERE I5 ENOUGH ROOM TO PLOT CHARACTER. 
IF BKX-O AND HMX-HPX«4 THEN HP%=HS% :VP%=VP%+SP%: KNEW ROW 
BE%=BK%+ 1 ЫГ 00 S'XXXINCREMENT BYTE COUNTER. 


oO ROM 


840 
900 
910 


920" 


339 


940 | 
950 ' 
1000 
1010 
1020 
1030 NEXT ADX 


кы CHAR. SET CORIT- Е 
“ЖЖЖООТРОЫТ BYTE ТО SCREEN. 
FOR 1%=0 TO 7 | 
COLOR BTX(IX) 
SET(HP%, VP%+1%) | 
NEXT I% 


| ` i XX*XSET COLOUR OF BIT. 
DEEKPLOT BIT. 


' XXXPREPARE FOR NEXT BYTE. 
НР%-НР%-1 E : ° Xk INCREMENT HORIZONTAL POSITION. 
IF BK%=5 THEN BK%= О : ’XXXNEW CHARACTER. 


:НР%-НР%-СЫ% 


2000 GOTO 2000 :END 


100 
e. for 


- 100 
and 
commands. 
BREAK :— 
Manual again fails to inform you of the DOS version. 

. be. 
© CTRL key. 





manual fails to inform ida of the correct ОЕ 


DIR 


ስ dns 
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DRIVE HINTS AND TEES ¿ - - - 


can be used from within a program, but the 
EG ፥፦ 


Most mae commands 


IFA$-'D'THENDIR + This will not. work although it's correct | 


BASIC, | but not for the DOS. 


) must be added bé vee THEN 
Same оез for most other DOS . 


ል colon (: 
| The 


IFA$-"D"THEN:DIR ШЕ 
for it to work. 


е there's a BREAK function тог Баз Ske DOS 

It could’nt | 

simpler. Just use the BREAK (-) MINUS key by itself without - 
It will ag you out of some problems but not all. s 


with any hints for the disk drive please let us knou 


80 ue can Share uith other users. 


THE MAG IC VEE ey. 43 ፪፳.32> j1 FPA A 2 


Disk Drive  ounsrs, the Magic VZ is not for you, but tape 


OWners rejoice as you can do Magic With your VZ. And how ta 
accomplish this Magic ? Simple, just install a Magic Eprom in 


your VZ200/300 and away you go. The Magic Eprom is a 4K Eprom 


that is Written for the range 4000-4FFF HEX. It contains the ` 


following three utilities which are available Seperately on tape. 
1) EBL = 2) ADRS = 2) ARI :- | 


оғы -- EXTENDED BASIC +5. B | MEE MN እ. 
wh ሻው а 45 missing. TRS-80 Level 2 Keywords are translated into 
their Tokens and are listable any time. This gives you 19 


additional commands/functions and all the disk command exits 
Which are very handy to link any M/L programs. Note that basic 


| Programs written with ЕБІ will run on any other VZ even if 
conmands/functions from the шоог belou are used. Ж жа 


“ADDITIONAL COHMANDS/FUNCTIONS ЭЭ 


РОЗ,  FRE(X$), MEM, ERR; ТЕРІ, FIX, CDBL, CONGy CLINT. ON, 


AUTO, DEFINT,  DEFSNG, DEFDBL, DELETE, | RANDOM,  VARPTR, ^ 


2 STRINGS, ` RESUME. 


DISK COMMANDS/FUNCTIONS :— | n | BEES 
LOB... LOC. ОЕА CVD, CVS, CVI, DEF,..PUT, GET, HMKD3$, 
HKS$, МКІз, ` TIMES, CMD, ЕМ, LSET, RSET, OPEN, CLOSE, 
| LOAD, SAVE, KILL, МАМЕ, MERGE, FIELD, INSTR. ` . 


Information is given on how то realise ON ERROR, TRON, 
TROFF and DEFSTR. ar die | 


НЕЗ p MERGE/DELETE/RENUMBER Б- | E 

2% The merge routine uill merge any number of basic programs up ` 

i rdssenoSy capacity. s only rule is that the program you uish to 

merge "must have it’ first line number higher than the last line 
of program in memory. | | МЕ ay ` 


REN X,Z or REN X-Y,Z. | i | 
| This- 18 а particulary usefull RENUHBER routine. You can 
renumber whole Or part of ao progran With. choice of increment. | 


DELETE Х/Х- ሥ-አ ОИ specified Line(s) are deleted. 


ARIS - ARRAY-UTILITY/RESTORE A wh TEL | | | | 
| This powerfull utility can dump 800 records of 16 222727 


|» in less than 4 minutes onto tape. With this ARRAY Utility you 


сап SAVE or LOAD whole ARRAYS at the tape speed of 600 baud, 


E regardless of the lenght or the number of dimensions. RESTORE N - 


enables you to move the DATA pointer for the READ command to the. 


1 element of апу DATÀ line in your program. Important, L 
array utility will. only work if the basic program was Written by 
an extended basic which accepts the disk commands LOAD, SAVE, 


` KILL and NAME. 


IMPORTANT NOTE :- na CERESIT АҒ Т MM 
ЕБІ can be loaded with either  MDR3 or ARI. They can be. 

"loaded any time without destroying a BASIC program. эгээ 

HEBT HDRS, AR1 and MAGIC EPROM аге available from po 


| W.Obrist | DECUS Bl ` MDRS. and AR1 are $15.00 each. 
50 Cobham Ave. MAGIC EPROM is $45.00. 
West Ryde | . They are last year’s prices SO check. 


D oue 2114 |. State RAM size. EG pee OK z4 5. STO. 
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 MAGIC-EPROM гав This Eprom contains all. three utilities 
described previously ЕБІ; МОрРКЗ апа АК1._ When correctly 


installed ail pointers are changed during power up resulting in à 


very powerfull VZ. The beauty of the Magic Eprom is that it 


works with any memory size and all commands and functions are 
available at power up. | | 


The Eprom is available as 2532 or 2732, and don't forget to 


mention your choice. То make your choice easier pinouts and 
connecting circuit diagrams are shown. I piggy backed mine on a 


2364 ӘК-ЕОМ inside the VZ200. Some VZ200's and Naso ave ABE" i 


ROMS and their pinouts are also shown. 


| Both the 2532 and 2132 ን will L Tela ce) on ‘the: 2364 Ron 
in У?200. aAstericks are shown which pins to bend up when 
pigey-backing оп 2364 VZ Rom. Оп the 2532 two pins must be. bent 
up while on 2732 three аге bent up and connected to the 


appropriate signals. Instead of soldering the Eprom directly to 
othe Rom а socket can be used. If piggy-backing on the 16K Rom 
then the Z 


732 .would be a better choice as only pins 18 and 24 
need bending up. Study the circuits carefully before 12. 


and take care. 


—— 2001 
04% ыс EPROM || || 
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UTILITY REVIEW Er = TAVLOR cc» 


FILESEARCH 2.0 (C) 1987 


==========================================xxxs.. Í 
буда Тола rm UTR mme EE ተ ፡-.ጋ 


5. መ=: pun ан ማመ C NOS oS E OL AN 2: 
Tame mmm mmm mmm e e a SS SS SS TS SSS SS TSS SS Sess ee — = 


 FILESEARCH is a utility program, consisting of two 
independent modules . TAPESEARCH апа  DISKSEARCH, which 


| provides useful information about programs stored on tape or 


disk. Although the data appears on the screen, selection of ` 


the DESEE option enables a printout to be obtained. 
The initial letter identifies the type of program: 


T: Basic Program 

В: Machine Code Program 
D: Data Files : 
t. Assembler Source Code 


TAPESEARCH reads the eager E programs and files stored ር 


` on аре апа БАТ Ра the information in this form: | 


5 T: МАМЕ ОЕ PROBRAM 7АЕ9 BEAA 1 3BB 


| з Following the program type and name, the start and end. 
| | addresses | and the length of the program will De printed, in 
E nex. Биг Data Files do not have a start and end address. 


| TAPESEARCH will PX identify pats. Files saved using ቲከፎ 
D.S.E. Word Processor, which cannot be identified during 


normal tape operations. When the printer option is selected 


only Data Files which have a name are output to the printer 


| e а11 files found are printed on the screen. 


DISKSEARCH reads the disk directory, and i LJ the data ` 


сап this form: 
T: FILENAME OA 04 7AE9 BEA4 15ВВ 


ET Following the filetype and filename the track and sector 
numbers, indicating where the data is stored on the disk, 


are displayed in hex form. Immediately. after this the Start: 


and end addresses and the length oF the program.are рее; 
also in hex. | E 


“рс the directory contains more than 13 entries, as ЁНЫГ 


data 15 being printed, the screen will scroll. Pressing the 
SPACE bar will hold the displayed data. If the printer. 


| option has been chosen, you can select, each time a 


directory is displayed, whether to он pal the data to the 
idol or not. | | | 


14 ITO error occurs during reading, control will 


return to DISKSEARCH. Should the program not return from 


reading a disk, such as if an attempt is made to read an 


unformatted disk; Control сап be regained by pressing the 


BREAK кеу а1опе. 


FILESEARCH can. be Safely used Dy non-disk owners as а 


: check is made for the presence of the Disk Operating System 

before entering DISKSEARCH. Pressing the CONTROL and BREAK 

keys together, at any time, will enable a return to the 
start of the program. P ы | | 7 


5 =-=።= ው аа а с шпат መ ማመ a መ የ አ Et 
ттт четче SS ШШШ SSS SMS መ መ መ መ መ መ መ መ መመ сш 2: መመ == = 


TECHNICAL BULLETIN ааа „ . =. - 14 


DICK ኩብ X rH ELECTRONICS Zu 58 ЭРЭН 
VZ-300 MAILING LIST TAPE TO DISK FILE CONVERSION | 


| Below are the HERES to be done to the В.А. в. ж. program to 
allou files to be saved оп disk instead of tape for (ጃ፦ oe, 
Mailing List program. | m 


-------------------------------------------------------------------------------------------------------------------------------- ` 


”- 


Once you have LOADed Mailing List ВКЕАК the program and type | 


| in the lines below pressing (RETURN) after each line. 


- 1040 PRINT@162, "2. READ DATA FROM DISK"; 


1080 PRINTG290,"6. WRITE DATA TO DISK"; 
5020 PRINT@270, "CWRITE DATA TO DISKI" 
5030 й | | | | 


5040 
" 5050 
` 5060 


5070 
5080 

5110 

5120 © 

5205 ERA"MAILDATA" | 2 

5210 OPEN"MAILDATA", 1:PR#"MAILDATA", DT 

5230 PRH"MAILDATA", D&(N) 

5240 NEXT:CLOSE"MAILDATA" Е 

6020 РЕІМТӘТӘ, "Г READ DATA FROM DISK TEM 

. 6030 | ` 

6040 © 

6050 

6060 | 

6070 

. 6080 ` | mm е | ET 
` 6100 OPEN"MAILDATA", O: INS"HAILDATA", DT:IF DT-OTHEN 6135 


| 6120 IN#"MAILDATA", DS (N) 


| 6135 CLOSE"MAILDATA" | m 
` 7030 PRINTG199, "LFUNCTION COMPLETE)"; 
7050 SOUND 30,2:КЕТПЕМ | UC 


Now SAVE"HAILLIST" to disk. Type NEW then. press RETURN. 
Type in and RUN program below. | 

2210 OPEN"MAILDATA", 1 

20 PRH"MAILDATA",O | 

ЗО CLOSE"MAILDATA" 


The above program has ёз os aed. the disk with the MAILLIST ы қат 


|» program to SAVE and READ files. The above program Will never be 


used again. 
Nou you have finished just RUN"HAILLIST" and the instructions 


аге as per old Mailing List program. Тһе only difference у that 
it SAVES and LOADS files a lot faster. | RACE 


Compiled by Jamie PERRY 


Reproduced by kind permission of D.Smith's computer user support. Е 


27 FOR BEGI MME RS 7 BY LE TGH ROGERS 15 


. - @?'аау! Му last article, (which uas also my first), seems to 
. have hit the spot, so I'm back for a seque1 ... ( Anyone uant tO 
| buy the Hovie Rights ? - Ed. ) | . . , m 


OK! You? re in ЛЭЭ а more complex one his time. This опе 
Covers a lot and demonstrates a lot of stuff. Like last time the 
program шаа is given first, then each line and command is 


Е explained: 22 


2210 CLS 
| 20 Аз RND(100) - | | 
. 30 INPUT "GUESS MY NUMBER (0- 100) "B 
| 40 IF A>B INPUT "HIGHER";B | | 
| 50 IF ACB INPUT "LOWER";B ` 

60 IF А-В PRINT "THAT'S RIGHT':GOTO 80 


“ТО GOTO 40 


80 INPUT "TRY AGAIN (Y/N) "59 
80 ፲፻ C$-"Y" GOTO 10 
100 PRINT. "TYPICAL НОМАМ! ": END 


нэ This ds a Bugs. little game where you can communicate ‘with 
the computer. It will choose а number at random and you have to 


амеба. What the number is. You will be given clues like "HIGHER" | 
"LOWER". By looking at some of the features of this programme, | 


"you. might be able to see how easy it is to write your own games. 
10 сїз det бек іһе screen. | | 
| 20 A-RNDC100) | 

он This is ል feature ше have not ` looked at yet. Ea 


` function which enables the computer to chose a number at random. 
For this, ue just print "RND" and straight after, you state (in 


С brackets), the highest number you wish to be chosen. So if you | 
. шеге choosing lotto numbers, it would be : RND(40). Get it? In 
line 20, ме have labelled our random number "A" by saying that 
"ለ= RND(100) ". ለቪ | | | ü 


^ 30 INPUT "GUESS HY NUMBER (0-100) "3B 


m This is another function ue have not yet tackled, but don't | 
worry, jit is not hard to understand. INPUT means that the . 


| computer | is looking for an input from you. It has told you what ` 


sort of input it is looking for, by asking you to "GUESS MY 
 NUMBER?". Тһе PRINT and INPUT statements are very similar but 
there is опе difference. Тһе PRINT command simply prints a ` 


| message on the screen, whereas the INPUT command both prints a 


. message оп the screen, апа waits for a reaction from the user. 
Your reaction із then labelled with another variable : ue have | 
labelled the response "B". Don't forget the semi-colon (:), and 
there is no need to type in question marks on the VZ as it puts 
them up for you the moment it sees an INPUT statement. | | 


40 IF ለ>5 INPUT "HIGHER':B Е 


|| This says exactly that : if the random number (A) is bigger 
than the response (В), then tell the user that it is higher, 

Wait for another guess, and ВРЕ ከ35 ог һег last ፆታ аи (В). 
With the new response. | | 


FOR BEGINNERS: CONT. 2 2 2 „ 2 3ሬ 


50 IF ልረ5 INPUT "LOWER";B 


| - - Again, this is easy to understand : if the random number (А) 
is louer than the response (B), then tell the user that his or 
her guess is too high,  uait for another response, and again, 
label it B. | | Е | саа? нэ 


60 ፲፻ А- 5 PRINT "THAT'S RIGHT" :GOTO 80 

This is the third thing thát could possibly РОТЕ ከ6 ог 
she gets it right. It says that if his or her guess equals the 
random number, then print up that he or she is right. I have 

` then redirected that part of the programme elsewhere by saying 
лы E | | | дам 

то 60፻0 40 


df | you. will notice, the majority of the programme uill be 


running through lines 40, 50, and 60. Once the computer has 
been through these lines, it would be a very short game if the 
. computer were not sent back through them to let you have another 


FII So ше say "GOTO 40", (in other words keep asking me, do 


| 1 want another go). 


| 80 INPUT “TRY AGAIN nz 


ға This ^is where line 60- sent the computer to. If you have 
` guessed right, it asks you, "TRY AGAIN (Y/N)?". Again, it is 


Waiting for а response and a simple thing like telling the user 


what sort of response to give, (Y/N) makes it all the easier for . | 
the user. You will notice that this response has been labelled ° 


"02". ` This is because only numbers can be labelled with а single 


letter variable. If the response is going to be a letter, it 


must have a dollar sign ($) tacked оп so the computer can 
distinguish. between the two. . t ii | e. us 


90 IF C$-"Y" GOTO 10 


dfc our response (C$) is "yes" (Y), start again at line 10. 


Notice that the response has been placed in "". This is also 
| because it is а letter and not just a simple number. For some 
| reason, a computer has no trouble dealing With numbers, (Only 
people - Ed. ) but uhen letters are involved, the matter becomes 


ል bit more Бере 
100 PRINT. “TYPICAL HUMAN! " : END 


I ‘have put in a bit of cheek here. You must remember, that 


`“ dn line 90, there is а condition : "IF C$-"Y" GOTO 10". Only if 
C$ is нүн, | is that line obeyed. If the response is anything 
else, the computer will ignore the line and continue with the ` 

| rest of the programme. Since 1% has been told to print up a 
| message it will do so, which will probably surprise anybody else 
who sees it!. After the colon (:), it sees a fresh command 


Which of course, tells it to finish up. 


Ж AnyWay, that's it for this nonth. It is a long one but it 
Should keep you going. See ya! | | E | 


ኔ 
ж „2 
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Бин Basic by Larry Taylor | 


| The E O ease 64 has advanced hardware supported by an 
| inadequate Basic ja эө resulting in a number of enhanced 
©- Basics being available. Something similar could be produced 


. for the VZ. It must be noted, however , that all such Basics 
share а common disadvantage. Any program which makes use of. 
them requires the AR be loaded DE POP En will function 


| properly. 


| Because Basic ds ^an interpreted language additional 


. commands сап ከፎ inserted, if they can be intercepted and 
. executed before reaching the VZ's Own interpreter. This is 
precisely what happens when a disk operating system (DOS) is 
added. New | commands enabling disk operations to ከፎ 
performed, supplement the existing Basic. However, ` all 


| programs. using those extra commands require the DOS to be 


present before execution GE they will not be interpreted 
correctly. | | ። шы, | А 


23 When: a Basic program is RUN, control passes to a machine 


language ВОМ routine, the Execution Driver at 1DSAH, which 
Scans each line of the Basic program as it comes to it and 
begins to translate it. Part of the translation process 
involves looking for tokens. These are values in the range. 


. 128-250 (BOH-FAH) that take the place of Basic reserved 
words e.g. CLS = 152 (84H). Once the word. has been 
identified апа checked for = correct syntax, control is 


` passed to the corresponding ROM routine before returning to 


Continue the translation. This is similar to one person 


issuing instructions to another through an interpreter, who 


first nas to translate them before the receiver can act, and 


is the reason for Basic's slow execution. Most lan alis oss get 


around this problem ከሃ having the program translated or 
ЕТЕ before execution. | | | | 


EU $.-Colour Computer has an enchanced CLS command 


"which. enables the. user to clear the screen to any one of / 


nine background colours. The Syntax is CLSn, where n may be 


a number in the range О-8. To illustrate how enhancements `` 


can Бе accomplished, this command. will be added. to the Vz's 
"EBORE Сеи | 

0በ power up the address of the routine which examines 
each byte in а line of Basic, is stored at 7804H. Because 


| this. address is in RAM it can be easily changed. This was 


done so that at a later stage the DOS could be included. | 


However, it also means that, just as readily, an enhanced 


form of Basic may be added. The trick is to ensure that, as 


far as the VZ‘s interpreter is concerned, nothing unusual 


has happened. The accompanying assembly language listing 


shows how this can be AS DR neds 


| new 


ENHANCING VZ BASIC CONT. - - : 


Having adjusted the top of memory pointer, the address 
at 7804H. is stored and replaced by our own. 
locates the new routine at the top of memory. 
^a byte is to be examined during execution 
through our checkpoint. Once the origin of the call is 
established, the routine looks for the CLS token, 132 (84H). 
Only when it has been located does the routine proceed to 
examine the next byte. This is checked to see if it lies in 
the range 0-9. Once it has passed this test, the clear 
screen routine is 
appropriate value 


Now each time 


with which to fill the screen. You will 
notice that not only is it necessary to check for the new 
command, but also ` to provide the routine which implements 
it. In this case a simple block load to the screen has been 
used. Control is then returned to the ROM. processing 
routine, which prepares to examine the byte following our 
command. So, as far as the VZ knows, 
ን. کا‎ normally. Tricky isn't it? 


4 


Тһе program then ` 


it must first pass. 


implemented after first calculating the 


everything is 


approach. to ` 


Lye qw have аеру. successfully used this | 
produce 92 Printer Patch, which enables all the normal | 
J printer | олет наа for owners of EPSON оғ EPSON compatible 


printers. The COPY command is intercepted by the patch and 
as a result its function has been enhanced to allow a proper 
dump ወቶ both the LO-RES and HI-RES screens. 
enhancement that could be explored would be an extension of 
 Basic's SOUND command. 
2 imagination. AnG Memory. 


0001 p HERR HIRIE EH HE AE AE R H EHH 


О002 ;# ENHANCED CLS COMMAND # 
0005 ;# BY LARRY TAYLOR 1986 # 
. ООО4 sHHHHFHHHHHHHHHHHHHAHHHEH 
0005 4 . 575. so kg 
. 0006 ;THIS SECTION RELOCATES | 
0007 ;THE PROGRAM TO THE TOP 
0008 ;OF AVAILABLE MEMORY. 
ооо» 4 | | 
|. 9010 VCTR EU 7AZBH ; SET УСТЕ AS 7428H 
. 0011. 10 SP,7700H sLOAD STACK POINTER 
0012 — LD HL, (78B1H) ;GET THE TOP OF MEMORY ` 
0015 LD  BC,ENDP-NVCT ;бЕТ LENGTH OF PROGRAM © 
.0014 . PUSH BC ; SAVE PROGRAM LENGTH 
0015 . XOR А ;RESET ALL FLAGS | 
0016. . . BBC HL,BL ; TAKE LENGTH FROM TOP OF MEMORY 
0017 . ኪህ (78B1H) ,HL ;LOAD NEW TOP OF шэн 
659 ፳፪. RESET ALL ሞነ ሚክ 
оо20 LD ВС,55Н ;RESERVE 50 BYTES STRING SPACE 
0021  . SBC HL,BU — ; TAKE SPACE FROM ТОР OF MEMORY 
ТЕСЛА ыды ;LOAD START DF STRING SPACE - 
| | хо “a ; RETRIEVE ТОР OF MEMORY 
О 2534, ር 7 3s INCREASE BY ONE 
00262210 E o ЧЕСТО 
2 
0027 Lb 08088806 LOAD ለህ VECTOR 
= | да ; GET START OF PROGRAM TO MOVE 
Се? : ሮክ ም ሚው ;RETRIEVE PROGRAM LENGTH ` 
2. ағ ;MOVE TO NEW LOCATION 
| таг ;DO A NEW 
SOSA ing ዐ.ሠ... ;JUMP TO READY MESSAGE 


The possibilities are limited only by 


One further 


ENHANCING VZ BASIC CONT. = 20 ш መዘጋ : 


0055 ; 
` 0054 iSTART OF THE PROCESSING 


тоо. 


0087 


0055. ; ROUTINE FOR NEW COMMAND. 
С 002 ነ 5 к | 
. 0057 — мист. EXX | ;S8AVE ALL REGISTERS | 
0058 | LD HL,1DSBH ;CHECK TO 
0039 0 POP DE ` | ;SEE IF THE 
e 0040. OR A ; RETURN 
. 0041. SBC HL,DE ; ADDRESS 
0042 © PUSH DE ` 2185 1D5BH - 
0045 ЕХХ | ` ;sRESTORE ALL REGISTERS. | | 
| 0044 - JP NZ,1D78H IF NOT GO TO NORMAL PROCESSING 
70045 PUSH HL | ;SAVE STRING ADDRESS ` 
.0046 | САШ 1D78H ; GET NEXT VALUE FROM STRING 
| 0047 JR  NZ,CONT IF NOT ZERO THEN,CONTINUE 
0048 PDP POP HL ; ELSE RESTORE STRING ADDRESS 
.0049 LD  DE,(VCTR) RETRIEVE ORIGINAL VECTOR 
0050 PUSH DE АМО JUMP ` 
| 0051 RET . .- ;TO IT 
. 0052 CONT CP ван $ CHECK FOR CLS TOKEN ` 
0055 6 JR | NZ,POP sIF NOT FOUND RETURN TO CALLER | 
|. 00584 00 INC HL | ;MOVE TO NEXT VALUE IN STRING 
. 0055. LD A, CHL) :GET NEXT VALUE AFTER CLS TOKEN 
| 0056 SUB зон - ` ;sREDUCE IT TO RANGE 0-8 | 
. 0057. JR | Z,EXEC ОРЇЕ ZERO THEN EXECUTE COMMAND © 
0058 LD 8,8 ;LOAD B REG WITH UPPER LIMIT 
0059 CMPR CP B | - ; CHECK IF А-В 
0060 JR Z,EXEC ` ;IF YES THEN EXECUTE COMMAND 
0061 DJNZ CMPR ; REDUCE B AND CONTINUE CHECK 
0062. JR РОР :МО MATCH SD RETURN ТО CALLER 
0063 EXEC РОР DE ;RETRIEVE OLD STRING ADDRESS 
. 0064 - POP DE :RETRIEVE OLD RETURN ADDRESS 
. 0065 — LD DE,1DIEH `  ;3LOAD NEW RETURN ADDRESS 
“0066 | PUSH DE | ; SAVE NEW RETURN ADDRESS 
0067 | INC HL MOVE TO NEXT VALUE IN STRING 
0068. PUSH HL sSAVE CURRENT STRING ADDRESS | 
. 0069 2 ADD A,A ; MULTIPLY CLS © 
0070 | ADD A,A VALUE BY 16 TO ` 
0071 ADD A,A sCALCULATE THE 
0072 — ADD A,A ; COLOUR OFFSET 
0073 JR NZ,SKIP ;IF RESULT NOT ZERO THEN. SKIP 
0074 - INC А. : IF ZERO INCREASE TO ONE 
| ዐዕ75 SKIP ል00 А,7ЕН ; ADD 127 TO GET GRAPHICS BLOCK. 
© 0076 ; እፍ ND 
0077 ;CLEAR SCREEN ROUTINE ` 
0078 $ |. UR. Быз а | 555 3828. КЕСИК f 
70079 — LD | HL,7000H . $LOAD START OF SCREEN ADDRESS 
. 0080. LD  |(7820H),HL | | ;SET CURSOR POSITION | 
. 0081 “LD БЕ,7001Н . sSLOAD START OF SCREEN PLUS ONE 
. 0082 LD BC,O1FFH .J3NUMBER OF BYTES TO MOVE 
. 0083 . LD — (HL),4 ;LOAD GRAPHICS BLOCK INTO HL 
0084. . LDIR Е :00 ል BLOCK FILL OF THE SCREEN 
. 0085 ‚ РОР HL RETRIEVE STRING ADDRESS 
0086 | RET ;RETURN TO 1D1EH TO CONTINUE 
ENDP DEFB O ;END OF PROGRAM MARKER 
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